home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 31 / Amiga Format CD31 (1998-09-02)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1998-10].iso / -websites- / sasg / dfa / rexx / dfa2dif.lzh / dfa2dif.dfa
Text File  |  1995-04-30  |  966b  |  52 lines
  1. /* $Revision Header built automatically *************** (do not edit) ************
  2. **
  3. ** © Copyright by Dirk Federlein
  4. **
  5. ** File             : dfa2dif.dfa
  6. ** Created on       : Sonntag, 30.04.95 21:59:12
  7. ** Created by       : Dirk Federlein
  8. ** Current revision : V1.0
  9. **
  10. **
  11. ** Purpose
  12. ** -------
  13. **     Export script for dif formatted files (e.g. 'Datamat')
  14. **
  15. ** Revision V1.0
  16. ** --------------
  17. ** created on Sonntag, 30.04.95 21:59:12  by  Dirk Federlein.   LogMessage :
  18. **     --- Initial release ---
  19. **
  20. *********************************************************************************/
  21.  
  22. options results
  23.  
  24. tabchar = '09'X
  25. cr        = '0A'X
  26. lf        = '0D'X
  27. quote    = '22'X
  28.  
  29. exportfile = 't:dfa_export.dif'
  30.  
  31. if ~show(ports, DFA) then
  32. do
  33.     exit 10
  34. end
  35.  
  36. if open('exfh',exportfile,'W') then
  37. do
  38.     address 'DFA'
  39.  
  40.     FIRST STEM ADR.
  41.     
  42.     do while RC = 0
  43.         writech('exfh', ADR.ADDRESS.1||tabchar||ADR.ADDRESS.2||tabchar||ADR.ADDRESS.6||cr||lf)
  44.  
  45.         NEXT STEM ADR.
  46.     end
  47.  
  48.     close ('exfh')
  49.  
  50. end
  51.  
  52.